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EDTSSTARTEDT = set up and call EDT 


-Sep-1984 VAX=11 Bliss-32_ V4.0-74 P 
—* 3 — 4:4 DISKSVMSMASTER:CEDT.SRC STARTEDT.B32: 1 (1) 


- set up and call EDT’ | 


uu "EDT 
} est up and call EDT 
' File: STARTEDT.BLI Edit: SMB1015 


SSTAR 
EDTS 38 
—— — — 
BEGIN 


RATA AAAAAEAEAAERAEEAAAAAERAAAAEEE 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


'w THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND copies 
'@ ONLY IN ACCORDANCE WITH THE TERMS OF SUCH bce SE AND WITH THE 
—36634 oo COPYRIGHT NOTICE. THIS sort WARE OR ANY OTHER 
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0 W I * 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
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DEAN $9 I - 


TRaANSF ERRED. 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
re Smeokatitn. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
Mal . 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


VSR EAE AAA AAEAAAAAAAAAAAAAETEAAAAAAAAAE AEA A AERA AAAEAAARAAAEAAAAAAR EERE 
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! FACILITY: EDT -- The DEC Standard Editor 
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1 
ABSTRACT: 
set up and call FDT 
+4 33 ENVIRONMENT: Runs at any access mode - AST reentrant 
$3 004 AUTHOR: Shelly T. Sclomon CREATION DATE: November 16, 1981 
‘§ § i MODIFIED BY: 
45 Goes i 1-00) - Original. STS 16-Nov-1981. 
4 $ ! 1-002 - Changed names of all globais fo avoid conflicts in Linking with 
4 : sharable image. STS 0 
48 3 : = Add command an ng. open file defaults. STS 16-Dec-1981 
49 : - If we are rag open the forming. before parsing the command, 
0 ? ; for compat ibiL with old JBS 17-Dec-19 
1 ‘ Change journ at 9 aene +4 default to * Bild pane. STS 17-Dec-1981 
§ § : 2 cond tional for TRAC 
: Run through ot fo remove ead nj biank — 22-Dec-1981 
4 & ! Pass Bat wat of EDT Aes 2 fo, gern cot, routine. ste” 5-Dec-1981 
5 5 : Fix DSCSA NTER mo cro. "ss 
$ $ : Pass addréss of EDTS$WO dii —8 1 “Feb 982 
5 i Use EDT$$V_COPTIONS. 58S 24-Mar-1 
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EDTSSTARTEDT = set up and call EDT 
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DISSTARTEDT = set up and call EDT 
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1 TSBTTL Declarations’ 
TABLE OF CONTENTS: 


REQUIRE "EDTSRC: TRAROUNAM' ; 


FORWARD ROUTINE 
EDTSSSTARTEDT; 


; INCLUDE FILES: 


REQUIRE ‘EDTSRC:EDTREQ'; 
REQUIRE "EDTSRC:SYSSYM'; 
REQUIRE "TRACESEL'; 
REQUIRE "EDTSRC:TRACEMAC'; 


i MACROS 

; 

EQUATED SYMBOLS: 

| NONE 

OWN STORAGE: 

i NONE 

GLOBAL 
EDT$$G_CRCOV_MOD, 
EDT$$Z7-CINP_BESC : BLOCK 
EDT$$2~COUT-DESC : BLOCK 
EDT$$2~CCMD-DESC : BLOCK 
EDT$$2~CJOU-DESC : BLOCK 
EDT$$SV~COPTIONS : BITVECT 


EXTERNAL REFERENCES: 
In the routine 


— — me 


aw 
<m 


20-74 
OSRCISTARTEDT.B32¢1%° (23 


! Main program for EDT utility 


— — —— —— — —— — — — — — 


string descriptor 

string descriptor 
string descriptor 
string descriptor 


ais TARTEDT = set up and call EDT 16- se0-1984 1: 1:19 VAK=11 Bliss-32 V4.0-7 4 
STARTEDT = set and call EDT 14-Sep-1984 12:24:46  DISKSVMSMASTER: chp src STARTEDT. B32. 7%° (3) 
ZSBITL "EDTSSSTARTEDT = set up and call EDT’ 
ROUTINE EDTSSSTARTEDT ' set up and call EDT 
= 


14 


i FUNCTIONAL DESCRIPTION: 
set up and call EDT 
FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
none 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
Same as EDTSEDIT 
SIDE EFFECTS: 
Calls EDTSEDIT and does an edit 


1 
1 
1 
1 
1 
1 
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8 

9 
40 
41 
4¢ 099 om 
4 0998 
44 0999 BEGIN 
45 1000 
“6 1001 EXTERNAL ROUTINE 
3 3 EDTSEDIT, ! this is callable EDT entry point 
49 L 1004 ZIF EDTSSTR_ACT 

50 U 1005 ITH 

51 U 1298 EDTS$TI_OPN, ! open terminal and set up trace 
FB he 

54 1909 EDTSSPA_CMDLN; ! Parse command Line 

55 1010 

2$ 131] EXTER 

1 \§ EDTSWORKIO, ' address of work i/o routine 

58 101 EDTSXLATE ' address of translation routine 
59 1014 EDTSFILEIO; i address of fileio routine 

60 1015 

61 1 16 CAL 

6¢ 101 F ROUT : VECTOR. C 

6 1018 ATE_ROUT : VECTO i, 

64 101 ORK RouT : VEETOR. C 

65 ! ? CROUTVAL; 

$$ L 1 § EDTSSTR_ACT 

08 U N 

6 U 26 


<m 


cccccc 


— — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — — 


VV o⏑ 


— —— — — — — — — — — — — — — — — — — — — — — — — — — — — — 


DARWIN HOSRIVSAR UN OSB SSRIS RUNS 


RRP RRARRARRARD ERR ER EEE RRMA OOO 


ss SFEEESSLIL GLA GRE LEE EE EEE Ee 


oo 
22 
20 


cove TARTEDT pots TARTEDT = set up and call EDT 
DISSSTARTEDT = set up and call EDT 


! If we are tracing (only on VAX-11) open the terminal first, so 

' the trace file is open and the trace records are in the pone 

! order as in previous gonf urations of EDT. The initialization 
routine will call EDTSSTI_OPN Later, but it will execute only once. 


"_ EDTSSTI_OPN (); 

iF 

1+ 

; Do some initialization 


BLOCK [CEDTS$$V_COPTIONS, Q. Q. 16. 0; 4 BYTE) + 0; 
BLOCK CEDTS$$V—COPTIONS, , 16, 0; 4, BYTE) = 0; 
FILE_ROUT 0 = EDTSFILEIO; 

FILE ROUT = 0; 

XLATE_ROUT } = EDTSXLATE; 

XLATE-ROUT (1) = 0; 

WORK_ROUT : : : EDTSWORK10; 

wORK~ROUT (1) = 0; 

EDTSSZ_CINP_DESC pscse_prvre) = DSCSK_DTYPE_T; ! type of descriptor 
EDTS$2-CINP_DESC CDSC$B-CLASS] = DSCSK-CLASS_D;: i dynamic strings 
EDT$$2-CINP-DESC [DSCSA_POINTER) = 0; 
EDT$$2-CINP_DESC [DSCSW-LENGTH] = 0; 
EDT$$2~COUT—DESC DS¢$B-DTvPE = DSC$K_DTYPE_T; 
EDT$$2-COUT-DESC [DSC$B-CLASS] = DSCSK-CLASS—D: 
ED7$$2-COUT-DESC [DSCSA-POINTER) = 0; 
EDT$$2~COUT-DESC [DSCSW-LENGTH] = 0; 
EDT$$Z-CCMD_DESC DSC$B-DTYPE] = DSCSK_DTYPE_T; 
EDT$$7-CCMD_DESC [DSC$B-CLASS) = DSCSK-CLASS_D: 
EDT$$2-CCMD-DESC [DSCSA-POINTER) = 0; 
EDT$$2~CCMD-DESC [DSCS$W-LENGTH] = 0; 
EDT$$2~CJOU-DESC DS¢$B-DTYPE] = DSCSK_DTY°E_T; 
EDT$$2~CJOU-DESC CDSC$B-CLASS) = DSCSK~CLASS—D: 
EDT$$2~CJOU-DESC [DSCSA-POINTER) = 0; 
EDT$$2~CJOU-DESC CDSCSW LENGTH) = 0; 


'¢ 
: Process the command Line. And get all this stuff back 
" EDTSSPA_CMDLN (); 


14 
We've set up all the preliminaries, mow call EDT. 


RETURN (EDTSEDIT (EDTS$Z_CINP_DESC, EDT$$Z_COUT DESC, EDTS$$Z_CCMD_DESC, EDT$$Z_CJOU_DESC, 
EDTS$V_COPTIONS, FILE_ROUT, WORK_ROUT, RLATE_ROUT)); 
END; “of routine EDTSSTARTEDT 


-TITLE EDTSSTARTEDT EDTSSTARTEDT - set up and call EDT 

-IDENT \vV04-000\ 

-PSECT _EDTSDATA,NOEXE, 
00000 EDT$$G_CRCOV_MOD:: 

-BLKB 4 
00004 EDT$$Z_CINP_DESC:: 


PIC,2 


4 
18-se -1984 01:51:19 VAX-11 Bliss-32 V4.0-74 Pa 5 
1 ~$007 138% 93:31: )2 STEKSVMGMASTER CEDT SRCISTARTEDT 832007" (3) 


4 4 

EDTSSTARTEDT EDTSSTARTEDT = set up and call EDT 4 1: 

7042000 EDTSSSTARTEDT ~ set up and call EDT 1erge8=13Re 93:31:23 
ooooc EDTS$z 2 DESC:: 
00014 EDTS$Z_CCMD. DESC: : 


L 
QO01C EDTS$$Z_ -£30U DESC:: 
00024 EDTS$v ies 


<m 


-PSECT _EDTSCODE,NOWRT, SHR, PIC.2 
0004 00000 EDTSSSTARTEDT: 
WORD 


. Save R2 3; 0969 

2 00000000' EF ob 9002 MOV EDT$$Z_CINP_DESC, R2 : 

a 14 SUBL #20 3 
OC AE 000000006 00 000C MOVAB EDTS$FILEIO, FILE_ROUT ; 1038 
10 A 0014 CLRL FIL + : 1039 
046 AE 000000006 0 t 0017 MOVAB EDTSRLATE, XLATE_ROUT : 1040 
08 AE D4 0001F CLRL  - XLATE_ROUT+4 + 1041 
000000006 0 f 900 2 PUSHAB EDTSUORKIO : 104¢ 
04 AE 04 000 CLRL work T+4 3 104 
62 020E0000 8F 00 000 MOVL — eet 4 28 CINP_DESC : 1047 
4 A2 D4 000 CLRL pBu47 1986 : 1046 
08 A2 020E0000 8F 00 9003 MOVL #344719 6, "ebis2 COUT_DESC : 1051 
0C A2 D4 00030 CLRL EDTS$ ESC+ : 1050 
10 A2 020E0000 8F D0 00040 MOVL 4e749 e. ‘epissz CCMD_DESC : 1055 
14 A2 D4 60048 CLRL EDTS$SZ_¢ DESC+% : 1054 
1A A2 020E 8F B80 00048 MOVW #526 EDtss2 CJOU_DESC+2 3: 1056 
1¢ A2 7C 00051 CLROQ —- EDT $$Z_CyOU_BESC+z + 1058 
18 A2d B4 90054 CLRW EDT$$2-CJOU_DESC : 1059 
000000006 00 00 FB 00057 CALLS #0, ED DTSSPA ~CMDLN : 1064 
08 AE 9F 0005E PUSHAB XLATE_R : 1069 

04 AE 9F 00061 PUSHAB YORK ROUT. ; 

18 AE 9F 00064 PUSHAB FI E ROUT : 

$3 A2 9F 00067 SHAB EDTSSV_COPTIONS : 

1 Ad 9F OO06A PUSHAB EDT$$Z~CJOU_DESC : 

10 A2d 9F 9060 PUSHAB EDT$$Z2~CCMD_DESC : 

08 <A2 9F 000 PUSHAB EDT$$2~COUT_DESC : 

3 DD —8 PUSHL Re 3 

000000006 00 FB 0007 CALLS #8, EDTSEDIT : 
04 0007C RET : 1071 


3; Routine Size: 125 bytes, Routine Base: _EDTSCODE + 0000 


: 217 


1072 1 !<BLF/PAGE> 
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DISEDIT S$PA CMDLN 
PT SHORK IO” S$XCATE 
DTSFILEIO 
| 


E ARTEDT EDTSSTARTEDT = set and call EDT 
—R EDTSSSTARTEDT - cet and call EDT 

: 1073 } END 

3 29 1074 

; 1075 : ELUDOM 

; PSECT SUMMARY 

; Name Bytes 

> LEDTSDATA 40 NOVEC, WRT, 
: EDTSCODE 125  NOVEC,NOWRT, 
: Library Statistics 

; File Total 
: _$255$DUA28: (EDT. SRCJEDT.L32;1 377 

; =$255$0UA28:CEDT.SRC pseCTS.£32:1 

; =$255$DUA28: SYSLIBJSTARLET.L32:1 9776 

; COMMAND QUALIFIERS 
: § X 125 08° 4 40 data bytes 

; ky Hees 


; Lexemes/CPU-Min: iS 
; Used: 109 pages 


> Lines/CPU Min: 
: fenptletion Complete 


VAX-11 Bliss-32 V 
DISKSVMSMASTER: ct Bt she STARTEDT. B32;1 
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Symbols -------- 


; Face eer COL, SUE SEA, PT IME SE I PUTRALEDACEA OM, ISG: SUARTEDT ESI O LEIS ANTE MSRC$:STARTEDT .B32/UPDATE=(ENHS$: STAR 
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